package BatchTools::FileGen::Format::Delimited;

##########################################
#
# Copyright 2008 David B. Spadea
# All rights reserved
#
# http://www.spadea.net
#
# This program and all supporting code  
# is released under the terms of the 
# GNU General Public License version 3.
#
##########################################

sub init
{
	return undef;
}

sub format
{
	my $colnames = shift;
	my $arryref = shift;
	my $data;

	{
		# Remove "Use of uninitialized value..." 
		# warnings when column in resultset is null
		no warnings;
		$data = join("|", @{ $arryref } ) . "\n";
	}

	return \$data;
}

sub finish
{
	return undef;
}

1;
